home *** CD-ROM | disk | FTP | other *** search
/ Meeting Pearls 4 / Meeting Pearls Vol. IV (1996)(GTI - Schatztruhe)[!].iso / Pearls / game / Think / Abacus / Abacus-Install < prev    next >
Text File  |  1996-10-01  |  8KB  |  229 lines
  1. ;
  2. ;   Installation script for Abacus
  3. ;   Copyright © 1995-96 Kai Nickel
  4. ;
  5. ; $VER: Abacus-Install 2.00 (01.10.96)
  6. ;
  7.  
  8.  
  9. ;*******************************************************************************
  10. ;                     Language depending strings
  11. ;*******************************************************************************
  12.  
  13. (complete 0)
  14.  
  15. (set #LANG
  16.   (askchoice (prompt "Wählen Sie ihre bevorzugte Sprache:\nSelect your preferred Language:")
  17.              (help "Wählen Sie hier Ihre bevorzugte Sprache für Abacus, die Anleitung und die weitere Installation.\n\n\n"
  18.                    "Please select your prefered language for Abacus, the documentation and the further installation.")
  19.              (choices "deutsch" "english")
  20.              (default 0)
  21.   )
  22. )
  23.  
  24. (if (= #LANG 0)
  25.   (
  26.     ;
  27.     ; ***** DEUTSCH
  28.     ;
  29.     (set #MSG_MUI        "Sie haben MUI gar nicht oder in einer veralteten Version installiert.\n Abacus benötigt MUI 3.3 oder höher.\n\nSie können Abacus trotzdem installieren, aber es wird erst laufen, wenn Sie eine aktuelle MUI-Version installieren.\n")
  30.     (set #MSG_PATH       "Wählen Sie das Verzeichnis, in dem die Schublade 'Abacus' erzeugt werden soll.")
  31.     (set #MSG_PATH_HELP  "Im gewählten Pfad wird ein neues Verzeichnis namens 'Abacus' erzeugt, in das Abacus und die zugehörigen Dateien kopiert werden.\nEs werden etwa 90KB für die Installation benötigt.\n\nSie können mit 'Make New Drawer' auch zuerst ein neues Verzeichnis erstellen.\n")
  32.     (set #MSG_MAIN       "Installieren des Hauptprogramms 'Abacus'")
  33.     (set #MSG_MAIN_HELP  "Das Hauptprogramm von Abacus. Die Dokumentation muß sich später im selben Verzeichnis befinden.\n")
  34.     (set #MSG_GUIDE      "Installieren der Dokumentation 'Abacus.guide'")
  35.     (set #MSG_GUIDE_HELP "'Abacus.guide' ist Dokumentation und gleichzeitig Online-Hilfe für Abacus.\nSie muß in das gleiche Verzeichnis wie das Hauptprogramm.")
  36.     (set #MSG_GAMEDIR    "Erzeuge 'Game' Verzeichnis für Spielstände")
  37.     (set #MSG_ICONS      "Was für Icons möchten sie?")
  38.     (set #MSG_ICONS_HELP "Für die installierten Abacus-Files stehen Piktogramme im MagicWB-Stil zur Verfügung.\n\nWenn sie kein MagicWB installiert haben, sollten sie diese Icons auch nicht verwenden.\n(MagicWB ist eine Workbench-Erweiterung von Martin Huttenloher.)")
  39.     (set #MSG_DOICONS    "Kopieren der MagicWB-Icons.")
  40.  
  41.     (set #MSG_CAT        "Den deutschen 'Abacus.catalog' installieren.")
  42.     (set #MSG_CATDIR     "Verzeichnis für deutschen Katalog erzeugen.")
  43.     (set #MSG_CAT_HELP   "Der Abacus.catalog enthält alle deutschen Programmtexte. Wer ihn nicht installiert, muß Abacus in Englisch ertragen.\n\nKataloge werden erst ab AmigaOS2.1 unterstützt.\n")
  44.     (set #NAME_CATDIR    "Catalogs/Deutsch")
  45.  
  46.     (set #NAME_GUIDE     "Docs/Deutsch/Abacus.guide")
  47.   )
  48.   (
  49.     (set #MSG_MUI        "You do not have MUI (or only an outdated version of it).\nAbacus need MUI 3.3 or higher.\n\nYou can install Abacus now, but it will not work until you install a new version of MUI, too.\n")
  50.     (set #MSG_PATH       "Choose the path where the new drawer 'Abacus' should be created.")
  51.     (set #MSG_PATH_HELP  "In the choosen path a new drawer named 'Abacus' will be created, in which Abacus and its files will be copied.\nAbout 90KB will be needed for the installation.\n\nYou also may create a new drawer via 'Make New Drawer' before.\n")
  52.     (set #MSG_MAIN       "Install the main program 'Abacus'")
  53.     (set #MSG_MAIN_HELP  "The main program of Abacus. The documentation has to be in the same drawer.\n")
  54.     (set #MSG_GUIDE      "Install the documentation 'Abacus.guide'")
  55.     (set #MSG_GUIDE_HELP "'Abacus.guide' is the documentation and online-help for Abacus.\nIt must be placed into the same drawer as the main program.\n")
  56.     (set #MSG_GAME       "Create 'Game' drawer for saved games")
  57.     (set #MSG_ICONS      "What icons do you want?")
  58.     (set #MSG_ICONS_HELP "For the Abacus-files exist icons in ths MagicWB-style.\n\nIf you do not have MagicWB, you also should not install these icons.\n(MagicWB is a Workbench-enhancment by Martin Huttenloher.)")
  59.     (set #MSG_DOICONS    "Install the MagicWB-icons.")
  60.  
  61.     (set #NAME_GUIDE     "Docs/English/Abacus.guide")
  62.   )
  63. )
  64.  
  65.  
  66. ;*******************************************************************************
  67. ;                               Check MUI
  68. ;*******************************************************************************
  69.  
  70. (complete 10)
  71.  
  72. (if (exists ("LIBS:Muimaster.library"))
  73.   (
  74.     (set #MUIVER (/ (getversion "LIBS:Muimaster.library") 65536))
  75.     (if (< #MUIVER 11)
  76.       (message #MSG_MUI)
  77.     )
  78.   )
  79.   (message #MSG_MUI)
  80. )
  81.  
  82.  
  83.  
  84. ;*******************************************************************************
  85. ;                          Get and create path
  86. ;*******************************************************************************
  87.  
  88. (complete 20)
  89.  
  90. (set #DESTINATION
  91.   (askdir (prompt  #MSG_PATH)
  92.           (help    #MSG_PATH_HELP)
  93.           (default @default-dest)
  94.   )
  95. )
  96.  
  97. (set #DESTINATION (tackon #DESTINATION "Abacus"))
  98.  
  99. (set @default-dest #DESTINATION)
  100.  
  101. (makedir #DESTINATION
  102.   (help @makedir-help)
  103.   (infos)
  104. )
  105.  
  106.  
  107.  
  108. ;*******************************************************************************
  109. ;                          Ask for icons
  110. ;*******************************************************************************
  111.  
  112. (set #ICONS
  113.   (askchoice (prompt  #MSG_ICONS)
  114.              (help    #MSG_ICONS_HELP)
  115.              (choices "Standard" "MagicWB")
  116.              (default 0)
  117.   )
  118. )
  119.  
  120.  
  121.  
  122. ;*******************************************************************************
  123. ;                      Copy Main program and guide
  124. ;*******************************************************************************
  125.  
  126. (complete 30)
  127.  
  128. (copyfiles (prompt #MSG_MAIN)
  129.            (source "Abacus")
  130.            (dest #DESTINATION)
  131.            (confirm)
  132.            (infos)
  133.            (noposition)
  134.            (help #MSG_MAIN_HELP)
  135. )
  136.  
  137. (complete 50)
  138.  
  139. (copyfiles (prompt #MSG_GUIDE)
  140.            (source #NAME_GUIDE)
  141.            (dest   #DESTINATION)
  142.            (confirm)
  143.            (infos)
  144.            (noposition)
  145.            (help #MSG_GUIDE_HELP)
  146. )
  147.  
  148.  
  149.  
  150. ;*******************************************************************************
  151. ;                             Copy Catalog
  152. ;*******************************************************************************
  153.  
  154. (complete 60)
  155.  
  156. (if (= #LANG 0)
  157.   (
  158.     (makedir (tackon #DESTINATION "Catalogs")
  159.              (help @makedir-help)
  160.              (confirm)
  161.              (infos)
  162.              (prompt #MSG_CATDIR)
  163.     )
  164.  
  165.     (copyfiles (dest   (tackon #DESTINATION #NAME_CATDIR))
  166.                (source (tackon #NAME_CATDIR "Abacus.catalog"))
  167.                (prompt #MSG_CAT)
  168.                (help #MSG_CAT_HELP)
  169.                (confirm)
  170.     )
  171.   )
  172. )
  173.  
  174.  
  175.  
  176. ;*******************************************************************************
  177. ;                             Make game drawer
  178. ;*******************************************************************************
  179.  
  180. (complete 70)
  181.  
  182. (makedir (tackon #DESTINATION "Games")
  183.          (help @makedir-help)
  184.          (infos)
  185.          (prompt #MSG_GAMEDIR)
  186.          (confirm)
  187. )
  188.  
  189.  
  190.  
  191. ;*******************************************************************************
  192. ;                             Copy icons
  193. ;*******************************************************************************
  194.  
  195. (complete 80)
  196.  
  197. (if (= #ICONS 1)
  198.   (
  199.     (copyfiles (prompt  #MSG_DOICONS)
  200.                (source  "MWBIcons/")
  201.                (dest    #DESTINATION)
  202.                (pattern "Abacus#?")
  203.     )
  204.  
  205.     (copyfiles (prompt #MSG_DOICONS)
  206.                (source "MWBIcons/Games.info")
  207.                (dest   #DESTINATION)
  208.     )
  209.  
  210.     (if (= #LANG 0)
  211.       (copyfiles (prompt #MSG_DOICONS)
  212.                  (source "MWBIcons/Catalogs.info")
  213.                  (dest   #DESTINATION)
  214.       )
  215.     )
  216.  
  217.     (run (cat "copy " "MWBIcons/Drawer.info \"" #DESTINATION ".info\""))
  218.   )
  219. )
  220.  
  221.  
  222.  
  223. ;*******************************************************************************
  224. ;                             Goodbye
  225. ;*******************************************************************************
  226.  
  227. (complete 100)
  228. (exit)
  229.